Add explicit binding to nil in let

* which-key.el (which-key--match-replacement,
which-key--propertize-key): Add explicit binding of case-fold-search to nil.

diff --git a/which-key.el b/which-key.el
index 660ff228019313cfa6058ceebf671d60a480f448..7d859a90bc67b636f20b85187b0f9005182fb99b 100644 (file)
--- a/which-key.el
+++ b/which-key.el
@@ -1551,7 +1551,7 @@ Within these categories order using `which-key-key-order'."
   (when (and (consp key-binding) (not (symbolp (car replacement))))
     (let ((key-regexp (caar replacement))
           (binding-regexp (cdar replacement))
-          case-fold-search)
+          (case-fold-search nil))
       (and (or (null key-regexp)
                (string-match-p key-regexp
                                (car key-binding)))
@@ -1684,7 +1684,7 @@ If KEY contains any \"special keys\" defined in
                         (mapconcat #'identity which-key-special-keys
                                    "\\|")
                         "\\)"))
-        case-fold-search)
+        (case-fold-search nil))
     (save-match-data
       (if (and which-key-special-keys
                (string-match regexp key))